" FILENAME " - html version

";
	nf=split(FILENAME,f,".")
	filename=f[1]".html";
	#print filename;
	#exit;
	}

# set to a low value to test for few lines of text
# NR == 99999 { exit; }

# ignore underlines and tags
substr($0,1,3) == "===" { next; }
substr($0,1,3) == "---" { next; }
substr($0,1,5) == " vim:" { next; }
substr($0,1,4) == "vim:" { next; }

	{
	nstar = split($0,s,"ZWWZ");
	for ( i=2 ; i <= nstar ; i=i+2 ) {
		nbla=split(s[i],blata," ");
		ntabs=split(s[i],tb,"	");
		if ( nbla > 1 || ntabs > 1 ) {
			gsub("ZWWZ","\*");
			nstar = split($0,s,"ZWWZ");
		}
	}
	npipe = split($0,p,"YXXY");
	for ( i=2 ; i <= npipe ; i=i+2 ) {
		nbla=split(p[i],blata," ");
		ntabs=split(p[i],tb,"	");
		if ( nbla > 1 || ntabs > 1 ) {
			gsub("YXXY","\|");
			ntabs = split($0,p,"YXXY");
		}
	}

	}


FILENAME == "gui.txt" && asciiart == "no"  \
          && $0 ~ /\+----/ && $0 ~ /----\+/ {
	asciiart= "yes";
	}

asciiart == "yes" { npipe = 1; }
#	{ print NR " <=> " asciiart; }

#
# line contains  "*"
#
nstar > 2 && npipe < 3 {
	printf("\n\n");
	for ( i=1; i <= nstar ; i=i+2 ) {
		this=s[i];
		put_this();
		ii=i+1;
		nbla = split(s[ii],blata," ");
		if ( ii <= nstar ) {
			if ( nbla == 1 && substr(s[ii],length(s[ii]),1) != " " ) {
			printf("",s[ii]);
				printf("*%s*",s[ii]);
			} else {
			printf("*%s*",s[ii]);
			}
		}
	}
        printf("\n");
	next;
        }
#
# line contains "|"
#
npipe > 2 && nstar < 3 {
	if  ( npipe%2 == 0 ) {
		for ( i=1; i < npipe ; i++ ) {
			gsub("ZWWZ","*",p[i]);
			printf("%s\|",p[i]);
		}
		printf("%s\n",p[npipe]);
		next;
		}
	for ( i=1; i <= npipe ; i++ )
		{
		if ( i % 2 == 1 ) {
			gsub("ZWWZ","*",p[i]);
			this=p[i];
			put_this();
			}
			else {
			nfn=split(p[i],f,".");
			if ( nfn == 1 || f[2] == "" || f[1] == "" ) {
				find_tag();
				}
				else {
		printf "\|" p[i] "\|";
				}
			}
		}
		printf("\n");
		next;
	}
#
# line contains both "|" and "*"
#
npipe > 2 && nstar > 2 {
	printf("\n\n");
	for ( j=1; j <= nstar ; j=j+2 ) {
		npipe = split(s[j],p,"YXXY");
		if ( npipe > 1 ) {
		this=p[1];
		put_this();
		i=2;find_tag();
		this=p[3];
		put_this();
		} else {
		this=s[j];
		put_this();
		}
		jj=j+1;
		nbla = split(s[jj],blata," ");
		if ( jj <= nstar && nbla == 1 && s[jj] != "" ) {
		printf("",s[jj]);
			printf("*%s*",s[jj]);
		} else {
			if ( s[jj] != "" ) {
			printf("*%s*",s[jj]);
			}
		}
	}
        printf("\n");
	next;
	}
#
# line contains e-mail address (normalized:   )
#
$0 ~ /@/ && ( $0 ~ /\.com/ || $0 ~ /\.de/ || $0 ~ /\.nl/ || $0 ~ /\.edu/ ) \
	{
	nemail=split($0,em,"\\&");
	for ( i=1; i <= nemail; i++ ) {
	if ( substr(em[i],1,2) == "lt" ) {
	mailaddr=substr(em[i],4);
	printf("\<%s\>",mailaddr,mailaddr);
	} else {
	if ( substr(em[i],1,2) == "gt" ) {
	shortstr=substr(em[i],4);
	printf("%s",shortstr);
	} else {
	printf("%s",em[i]);
	}
	}
	}
	#print "*** " NR " " FILENAME " - possible mail ref";
	printf("\n");
	next;
	}
#
# line contains http reference (normalized: 
#                                            )
#
$0 ~ /URL:/ || $0 ~ /ftp:/ || $0 ~ /http:/ \
	{
	nemail=split($0,em,"\\&");
	for ( i=1; i <= nemail; i++ ) {
	if ( substr(em[i],1,2) == "lt" ) {
	httpref=substr(em[i],8);
	printf("\<%s\>",httpref,httpref);
	} else {
	if ( substr(em[i],1,2) == "gt" ) {
	shortstr=substr(em[i],4);
	printf("%s",shortstr);
	} else {
	printf("%s",em[i]);
	}
	}
	}
	#print "*** " NR " " FILENAME " - possible http ref";
	printf("\n");
	next;
	}
#
# some lines contains just one "almost regular" "*"...
#
nstar == 2  {
	this=s[1];
	put_this();
	printf("*");
	this=s[2];
	put_this();
	printf("\n");
	next;
	}
#
# regular line
#
	{ ntabs = split($0,tb,"	");
	for ( i=1; i < ntabs ; i++) {
		this=tb[i];
		put_this();
		printf("	");
		}
	this=tb[ntabs];
	put_this();
	printf("\n");
	}


asciiart == "yes"  && $0 ~ /\+-\+--/  \
        && $0 ~ "scrollbar" { asciiart = "no"; }

END {
	topback();
	print "